home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
WA0729.ZIP
/
COMPOSE.FRM
(
.txt
)
next >
Wrap
Visual Basic Form
|
1992-11-11
|
9KB
|
177 lines
Compose
Compose Message
wwwwwwwwwwwww
Form1%
Cancel_BTN
Cancel
Details_BTN
&Details
Attach_BTN
Attac&h
Address_BTN
&Address
Send_BTN
&Send
Message_EDIT
Subject_EDIT
bcc_EDIT
cc_EDIT
To_EDIT
Subject_LBL
Sub&ject:
bcc_LBL
&bcc:
cc_LBL
To_LBL
Command1_Click
MAPIMessage2
MapiRecip
MapiFileH
RecipClass
MAPI_TO
MAPI_CC
RecipCountI
Reserved
Subject
Main
NoteTextT
Body
MessageType
DateReceivedG
FlagsA
FileName
PathNamey
Position
FileCount=
MAPISendMail
MapiSession
hWndw
ignoreY
DisplayStatus
To_EDIT
cc_EDIT
Message_EDIT"
Subject_EDIT
Command2_Click
Quit_BTN_Click
Compose
Send_BTN_Click
Save_BTN_Click
Attach_BTN_Clickn
FileOpen_DLGe
Action
FilterJ
AttachFilename
Cancel_BTN_Click
AttachPosition
AttachmentN
iPosition
Attach
AttachCount
Address_BTN_Click
nRecips
Address
MAPIAddress
StringToken
delim
iPos1
iPos2
WordLen
AsString
bccR*
bcc_EDITx
ClassType
Class
AttachF
Form_Click
FlagZ
FileType
@ Form_Load
SUCCESS_SUCCESS
OldCursor
MousePointer
Details_BTN_Click
Rcpnt
MapiResolveName
Recip
MapiDetails
MAPI_BCC
These global vars are used to store
file attachment information between
when the user selects the attachmentt
info, until the message is sent..
NOTE: only 10 attachment filess
may be specified
Address_BTN_Click
Copy users To, CC and BCC text linesl
into recipient descriptor array
ReDim R(0 To 1) As MapiRecip
R(0).Name = "Administrator"p
R(0).RecipClass = MAPI_TOr
R(0).Address = ""
R(1).Name = "v-petep"I
R(1).RecipClass = MAPI_TOr
R(1).Address = ""
nRecips = 1s
Call MAPIAddress to display the address UIs
NOTE: We select only the MAPI_TO class addressd
data.
Get Address
For each recipient structure, append thed
name into the To_EDIT field in the composem
window.
Attach_BTN_Click
Don't let the user attach more than
10 files, since we only dimensioned
enough room for that.
No more file attachments allowed in this demo
Display a FileOpen dialog to get thet
name of the file to attacht
NOTE: This has been left out intentionallyn
FileOpen_DLG.FileName = "*.*"*
FileOpen_DLG.Filter = "*.*"*
FileOpen_DLG.Action = 1*
Copy the filename retruned from the FileOpene
dialog into the global Attachment arrays fors
storage until we send the message the user is
composing.s
AttachPosition(AttachCount) = -1
AttachFilename(AttachCount) = FileOpen_DLG.FileName
AttachCount = AttachCount + 1
Message_EDIT.text = Message_EDIT.text + "#"F
Cancel_BTN_Click
Hide the Compose window
Details_BTN_Click
Resolve
Form_Load
Initialize the attachcount global var
when the compose window is loaded
Send_BTN_Click
Check that user entered at least aa
subject field
No subject
Display the hourglass cursor until*
the ReadMail call completes
Pull out the "to:" field and build up
recipient structuresi
Pull out the "cc:" field and build up
recipient structuresi
Pull out the "bcc:" field and build up
recipient structuresi
Make sure the user entered a recipient name
You must enter a recipient to send mail!
Allocate enough recipient structurest
Set up the "TO:" recipient structures
Set up the "TO:" recipient structures
Set up the "BCC:" recipient structures*
Build up the file descriptors
Set the mail message fields
Send the mail, then destroy the compose windowi
if the send was successfuls
Send Mail
Restore the original mouse cursor
StringToken
Returns a string from string position "iPos" upto
a delimeter character
Find next delimetere